home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SHDK_2 / OVERLSTR.PAS < prev    next >
Pascal/Delphi Source File  |  1992-05-13  |  603b  |  26 lines
  1. {$F+}
  2. {This unit is required for the test ensemble in order to permit the
  3.  initialization of the overlay system prior to any other heap
  4.  manipulation.}
  5.  
  6. unit OverLstr;
  7.  
  8. interface
  9.  
  10. uses Overlay;
  11.  
  12. implementation
  13.  
  14. begin
  15.   OvrInit('TESTLSTR.OVR');
  16.   If OvrResult <> OvrOK then begin
  17.     WriteLn('Can''t initialize overlay file. Error code = ',OvrResult);
  18.     Halt(1);
  19.     end;
  20.   OvrSetBuf(OvrGetBuf + $4000);
  21.   If OvrResult <> OvrOK then begin
  22.     WriteLn('Can''t adjust overlay buffer. Error code = ',OvrResult);
  23.     WriteLn('     The tests may run very slowly.');
  24.     end;
  25.   end.
  26.